home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #6 / Amiga Plus Extra 1997 #6.iso / tools / pcx-demo / installerscript < prev    next >
Text File  |  1996-12-04  |  8KB  |  362 lines
  1. ;**************************************************
  2. ;
  3. ;$VER: PCx Emulation Installer v1.0 (02 Dec 1996)
  4. ;
  5. ; Title:
  6. ;    PCx Emulation Software Installer
  7. ; 
  8. ; Description:
  9. ;    The Commodore Installer Script for PCx
  10. ;
  11. ; Installer script by Jim Drew
  12. ;
  13. ;**************************************************
  14.  
  15. (set true 1)
  16. (set false 0)
  17. (set quote "\"")
  18. (set nothing "")
  19. (set WB2 (< 2293760 (getversion "exec.library" (resident)))) ; true if under 2.0
  20.  
  21. (set mode 0)                ;default to 32 bit mode
  22.  
  23. (set PCx_dir (getassign "PCx"))
  24. (set c_dir (getassign "C"))
  25. (set libs_dir (getassign "LIBS"))
  26. (set devs_dir (getassign "DEVS"))
  27. (set s_dir (getassign "S"))
  28. (set MSHF_dir (getassign "MSHF"))
  29.  
  30. (set Src_c "OurPC:PC_EMU/c/")
  31. (set Src_s "OurPC:PC_EMU/s/")
  32. (set Src_libs "OurPC:PC_EMU/libs/")
  33. (set Src_devs "OurPC:PC_EMU/devs/")
  34. (set Src_main "OurPC:PC_EMU/")
  35. (set Src_docs "OurPC:PC_EMU/Documentation/")
  36. (set Src_BIOS "OurPC:PC_EMU/BIOS/")
  37. (set Src_Video "OurPC:PC_EMU/DisplayDrivers/")
  38. (set Src_Utils "OurPC:PC_UTILS/")
  39.  
  40. (if  (<> PCx_dir nothing)
  41.      (if  (askbool
  42.                (prompt "\n\n\nA previous installation of PCx has been "
  43.                "detected in the root drawer: \n\n"
  44.                quote PCx_dir quote
  45.                "\n\nDo you want the update installed into this drawer?")
  46.                (help
  47.                "\n\n\nThe installer has determined that you already have a "
  48.                "some version of a the PCx emulation installed "
  49.                "on your system.  If this is wrong or you want the update "
  50.                "installed elsewhere, select 'NO', otherwise select 'YES'."
  51.                )
  52.                (default 1)
  53.           )
  54.                (set is_update true) 
  55.  
  56. ;else ask where to put software
  57.  
  58.                (
  59.                (set is_update false)
  60.                (set PCx_dir
  61.                (askdir
  62.                     (prompt "Where would you like the updated software "
  63.                     "installed?\n"
  64.                     "The directory 'PCx' will automatically created")
  65.                     (help @askdir-help)
  66.                     (default @default-dest)
  67.                )
  68.                )
  69.  
  70.                (set PCx_dir
  71.                (tackon PCx_dir "PCx")
  72.                )
  73.  
  74.                (makedir PCx_dir
  75.                (infos)
  76.                )
  77.           )
  78.      )
  79. )
  80.  
  81. ; PCx: was not previously assigned, so ask where to make it
  82. (if  (= PCx_dir nothing)
  83.           (
  84.           (set PCx_dir
  85.                (askdir
  86.                     (prompt "Where would you like the software "
  87.                     "installed?\n"
  88.                     "The directory 'PCx' will automatically created")
  89.                     (help @askdir-help)
  90.                     (default @default-dest)
  91.                )
  92.           )
  93.  
  94.           (set PCx_dir
  95.           (tackon PCx_dir "PCx")
  96.           )
  97.  
  98.           (makedir PCx_dir
  99.           (infos)
  100.           )
  101.      )
  102. )
  103.  
  104. (set @default-dest PCx_dir)
  105.  
  106. (complete 10)
  107.  
  108. ; ask user to locate LIBS: directory
  109.  
  110. (set libs_dir
  111.      (askdir
  112.           (prompt "Please locate your LIBS: directory.")
  113.           (help @askdir-help)
  114.           (default libs_dir)
  115.           (newpath)
  116.      )
  117. )
  118.  
  119. (working omp "...Please Wait...")
  120.  
  121. (copyfiles
  122.      (prompt "Select file(s) to be copied into your LIBS: directory:")
  123.      (help "\n\n\n\n\nThis will copy the necessary "
  124.      "libraries into your system's LIBS: directory.\n\n\n\n\n\n\n"
  125.      @copylib-help)
  126.      (source Src_libs)
  127.      (dest libs_dir)
  128.      (pattern "(#?.library#?)")
  129.      (confirm)
  130. )
  131.  
  132. (complete 30)
  133.  
  134. ; ask user to locate DEVS: directory
  135.  
  136. (set devs_dir
  137.      (askdir
  138.           (prompt "Please locate your DEVS: directory")
  139.           (help @askdir-help)
  140.           (default devs_dir)
  141.      )
  142. )
  143.  
  144. (working omp "...Please Wait...")  
  145.  
  146. (copyfiles
  147.      (prompt "Select file(s) to be copied into your DEVS: directory:")
  148.      (help "\n\n\n\n\nThis will copy the device drivers for the use "
  149.      "with PCx's various I/O ports.\n\n\n\n\n\n\n"
  150.      @copyfiles-help)
  151.      (source Src_devs)
  152.      (dest DEVS_dir)
  153.      (pattern "#?")
  154.      (confirm)
  155. )
  156.  
  157. (complete 40)
  158.  
  159. ;create Utils directory
  160.  
  161. (set Utils_dir
  162. (cat PCx_dir)
  163. )
  164. (set Utils_dir
  165. (tackon Utils_dir "PC_UTILS")
  166. )
  167.  
  168. (makedir Utils_dir
  169. ;(infos)
  170. )
  171.  
  172. (working omp "...Please Wait...")
  173.  
  174. (copyfiles
  175.      (prompt "Select PC driver file(s) to be copied:")
  176.      (help "\n\n\n\nThis will copy various PC drivers"
  177.      ".\n\n\n\n\n\n"
  178.      @copyfiles-help)
  179.      (source Src_Utils)
  180.      (dest Utils_dir)
  181.      (pattern "#?")
  182.      (confirm)
  183. )
  184.  
  185. (complete 50)
  186.  
  187. ; Copy over the PCx EMULATION programs
  188.  
  189. (working omp "...Please Wait...")
  190.    
  191. (set PCx_dir
  192.      (copyfiles
  193.           (prompt "Select files to be copied to the PCx: directory:")
  194.           (help "\n\n\n\n\n\nThis will copy the PCx emulation's main "
  195.           "programs.\n\n\n\n\n\n\n"
  196.           @copyfiles-help)
  197.           (source Src_main)
  198.           (dest PCx_dir)
  199.           (pattern "(PCx#?|PCsx#?)")
  200.           (confirm)
  201.      )
  202. )
  203.  
  204. (complete 60)
  205.  
  206. ;create Utils directory
  207.  
  208. (set HF_dir
  209. (cat PCx_dir)
  210. )
  211. (set HF_dir
  212. (tackon HF_dir "HardFiles")
  213. )
  214.  
  215. (makedir HF_dir
  216. ;(infos)
  217. )
  218.  
  219. (complete 65)
  220.  
  221. ;create DisplayDrivers directory
  222.    
  223. (set DisplayDrvr_dir
  224. (cat PCx_dir)
  225. )
  226. (set DisplayDrvr_dir
  227. (tackon DisplayDrvr_dir "DisplayDrivers")
  228. )
  229.  
  230. (makedir DisplayDrvr_dir
  231. ;(infos)
  232. )
  233.  
  234. (working omp "...Please Wait...")
  235.  
  236. (copyfiles
  237.      (prompt "Select file(s) to be copied into your DisplayDrivers directory:")
  238.      (help "\n\n\n\n\nThis will copy the video drivers to the proper "
  239.      "directory.  ALL PCx display drivers must reside in your "
  240.      "'PCx:DisplayDrivers' directory.\n\n\n\n\n\n"
  241.      @copyfiles-help)
  242.      (source Src_video)
  243.      (dest DisplayDrvr_dir)
  244.      (pattern "(#?)")
  245.      (confirm)
  246. )
  247.  
  248. (complete 70)
  249.  
  250. ;create Documentation directory
  251.  
  252. (set Docs_dir
  253. (cat PCx_dir)
  254. )
  255. (set Docs_dir
  256. (tackon Docs_dir "Documentation")
  257. )
  258.  
  259. (makedir Docs_dir
  260. (infos)
  261. )
  262.  
  263. (working omp "...Please Wait...")
  264.  
  265. (copyfiles
  266.      (prompt "Select file(s) to be copied Documentation directory:")
  267.      (help "\n\n\n\nThis will copy various documentation and "
  268.      "IFF pictures to your documentation directory.  ALL PCx "
  269.      "documentation should reside in your "
  270.      "'PCx:Documenation' directory.\n\n\n\n\n\n"
  271.      @copyfiles-help)
  272.      (source Src_docs)
  273.      (dest Docs_dir)
  274.      (pattern "#?")
  275.      (confirm)
  276. )
  277.  
  278. (complete 80)
  279.  
  280. ;create BIOS directory
  281.  
  282. (set BIOS_dir
  283. (cat PCx_dir)
  284. )
  285. (set BIOS_dir
  286. (tackon BIOS_dir "BIOS")
  287. )
  288.  
  289. (makedir BIOS_dir
  290. ;(infos)
  291. )
  292.  
  293. (working omp "...Please Wait...")
  294.  
  295. (copyfiles
  296.      (prompt "Select BIOS Image(s) and Related Files:")
  297.      (help "\n\n\n\n\nThis will copy the native BIOS. "
  298.      "ALL BIOS files "
  299.      "must be in your 'PCx:BIOS' directory.\n\n\n\n\n\n"
  300.      @copyfiles-help)
  301.      (source Src_BIOS)
  302.      (dest BIOS_dir)
  303.      (pattern "#?")
  304.      (confirm)
  305. )
  306.  
  307. (complete 90)
  308.  
  309. ; alter user-startup for assignment of PCx:
  310.  
  311. (if  (not (<> MSHF_dir nothing))
  312.      (if (askbool
  313.                (prompt "\nIn order for PCx to work, two assignments "
  314.                "must be made to the s:user-startup file.  These "
  315.                "assignments are:\n\n"
  316.                "'assign PCx: <device>:'\n\n"
  317.                "'assign MSHF: PCx:HardFiles'\n\n"
  318.                "These lines can be automatically added by this installer "
  319.                "script.  Do you wish to proceed?\n\n")
  320.                (help @askbool-help)
  321.                )
  322.  
  323.                (
  324.                     (if (= @pretend 0)
  325.                     (
  326.                         (
  327.                         (if  (not  (exists "s:user-startup"))
  328.                              (textfile
  329.                              (dest "s:user-startup")
  330.                              (append ";user-startup \n\n")
  331.                          )
  332.                     )
  333.                     (textfile
  334.                     (dest "ram:user-startup")
  335.                     (include "s:user-startup")
  336.                     (append ";BEGIN PCx \n")
  337.                     (append "assign PCx: " PCx_dir "\n")
  338.                     (append "assign MSHF: PCx:HardFiles/ \n")
  339.                     (append ";END PCx \n")
  340.                     )
  341.                     (rename "s:user-startup" "s:user-startup.old")
  342.                     (copyfiles
  343.                     (help @copyfiles-help)
  344.                     (source "ram:user-startup")
  345.                     (dest "s:")
  346.                     )
  347.                     (delete "ram:user-startup")
  348.                )
  349.           )
  350.           )
  351.      )
  352.      )
  353. )
  354.  
  355. (complete 100)
  356.  
  357. (message "\n\n\n\n\n\n"
  358. "Installation of emulation software is complete."
  359. )
  360.  
  361. (exit)
  362.